
         LST   OFF
         ORG   $0800

********************************
*                              *
*       INTRO MURYADEN 1       *
*      (C)1989 BYTLEJUICE      *
*       SOURCE BY DECKARD      *
*                              *
********************************

PTR_ECRAN EQU  $00        ; pointeur de l'{cran graphique
PTR_CHARSET EQU $02       ; pointeur sur jeu de caract}res
LIGNE_ECRAN EQU $04
PTR_SCROLL EQU $63        ; pointeur texte du scroll
OFFSET_SCRL EQU $65       ; offset texte du scroll
CPT_BIT  EQU   $67        ; compteur de bit
PTR_MUSIC EQU  $DD        ; Pointeur sur la musique Electric Duet (ED)

IN       EQU   $0200
H0361    EQU   $0361      ; save acc
H0362    EQU   $0362      , save X reg
H0363    EQU   $0363      ; save Y reg
H0364    EQU   $0364      ; not used
H0365    EQU   $0365      ; not used

ANIM1    EQU   $601E      ; animation pendant la musique

* Adresses ROM

KEY      EQU   $C000      ; key pressed
SPKR     EQU   $C030      ; speaker
TXTCLR   EQU   $C050      ; mode graphique
MIXCLR   EQU   $C052      ; graphique plein {cran
LOWSCR   EQU   $C054      ; page HGR 1
HIRES    EQU   $C057      ; HGR sans effacement

*-------------------------------

CPT_ANIM_M NOP            ; compteur animation

*-------------------------------
* Lance scroll sur {cran auteurs
*-------------------------------

SCROLL   NOP
         NOP

         BIT   TXTCLR
         BIT   LOWSCR
         BIT   HIRES
         BIT   MIXCLR

         JSR   START_SCROLL
         RTS

*-------------------------------

         DS    188,$EA    ; NOP
         DFB   0,0

*-------------------------------
* Prochain caract}re pour scroll
*-------------------------------

NEXTCAR  INC   OFFSET_SCRL ; caract}re suivant
         BEQ   H08D8      ; page m{moire suivante

H08D5    JMP   INIT_NEXTCAR ; met en place le prochain caract}re

H08D8    INC   PTR_SCROLL+1 ; high pointeur scroll+1
         BNE   H08D5      ; toujours

*-------------------------------
* Recopie 7 lignes du scroll de
* HGR2 vers HGR1
*-------------------------------

CPY_HGR2_1 DS  7,$EA      ; NOP

         LDY   #39        ; derni}re colonne de la ligne
:1       LDA   $43D0,Y
         STA   $23D0,Y
         LDA   $47D0,Y
         STA   $27D0,Y
         LDA   $4BD0,Y
         STA   $2BD0,Y
         LDA   $4FD0,Y
         STA   $2FD0,Y
         LDA   $53D0,Y
         STA   $33D0,Y
         LDA   $57D0,Y
         STA   $37D0,Y
         LDA   $5BD0,Y
         STA   $3BD0,Y
         DEY              ; colonne pr{c{dante
         BPL   :1         ; jusqu'@ la colonne 0 incluse

         RTS

*-------------------------------
* Met en place le prochain
* caract}re @ scroller
*-------------------------------

INIT_NEXTCAR LDY OFFSET_SCRL
         LDA   (PTR_SCROLL),Y ; caract}re @ afficher
         CMP   #" "       ; espace?
         BNE   H0920      ; non

         LDY   #0         ; espace : {vite les calculs car 1er carac.
         JMP   H093E      ; va directement @ la suite

H0920    CMP   #$FF       ; terminateur?
         BNE   H0927      ; non

         JMP   START_SCROLL ; reboucle en fin de scroll

H0927    CMP   #'!'       ; not used. On utilise que le 2nd jeu
         BNE   H0930      ; de "caract}re" (et pas 'caract}re)

         LDY   #2         ; not used
         JMP   H093E

H0930    CMP   #'.'       ; not used
         BNE   H0939

         LDY   #4         ; not used
         JMP   H093E

H0939    SEC              ; " " => index 0
         SBC   #" "
         ASL              ; *2 pour DA
         TAY

H093E    LDA   ADR_CHARSET,Y ; adr low charset
         LDX   ADR_CHARSET+1,Y ; adr high charset
         STA   PTR_CHARSET ; pointeur en place
         STX   PTR_CHARSET+1

         LDA   #184       ; ordonn{e 1}re ligne {cran du scroll
         STA   LIGNE_ECRAN
         LDY   #0

H094E    LDX   LIGNE_ECRAN ; calcul adresse {cran
         LDA   ADR_HGRL,X ; low
         CLC
         ADC   #40        ; 41}me octet fictif de la ligne pour
         STA   PTR_ECRAN  ; faciliter le scroll du last carac de la ligne
         LDA   ADR_HGRH,X ; high
         CLC
         ADC   #$20       ; page HGR2
         STA   PTR_ECRAN+1

         LDX   #0         ; copie les datas du caract}re sur la 41}me
         LDA   (PTR_CHARSET),Y ; colonne fictive de l'{cran
         STA   (PTR_ECRAN,X)
         INC   LIGNE_ECRAN ; ligne suivante
         INY              ; octet suivant
         CPY   #8         ; a-t on fini les 7 octets du caract}re?
         BNE   H094E      ; non

         RTS

*-------------------------------
* Lancement scroll message
*-------------------------------

START_SCROLL LDA #<MSG_SCROLL-1 ; pointeur sur message dans page mem
         LDX   #>MSG_SCROLL-1
         STA   PTR_SCROLL
         STX   PTR_SCROLL+1

         LDA   #0         ; pointeur dans page memoire
         STA   OFFSET_SCRL

H097A    JSR   NEXTCAR    ; met en place le prochain caract}re
         LDA   #6         ; init pointeur des 7 bits @ scroller
         STA   CPT_BIT

H0981    JSR   SCRL_HGR2  ; effectue un scroll sur la page 2
         JSR   CPY_HGR2_1 ; recopie lignes page 2 vers page 1
         NOP              ; pour que le d{calage ne soit pas visible
         NOP              ; sur l'{cran affich{
         NOP
         LDA   KEY        ; touche press{e?
         BMI   H0996      ; oui, arret scroll

         DEC   CPT_BIT    ; un bit de moins
         BPL   H0981      ; continue jusqu'au bit 0 inclus

         JMP   H097A      ; passe au caract}re d'apr}s

H0996    RTS

*-------------------------------
* Effectue le scrolling en HGR2
*-------------------------------

SCRL_HGR2 LDA  #184       ; 1}re ligne ordonn{e
         STA   LIGNE_ECRAN

H099B    LDY   LIGNE_ECRAN ; pointeur {cran
         LDA   ADR_HGRL,Y ; low
         STA   PTR_ECRAN
         LDA   ADR_HGRH,Y ; high
         CLC
         ADC   #$20       ; {cran HGR2
         STA   PTR_ECRAN+1

         LDY   #40        ; scroll cette ligne depuis le 41}me octet
         LDA   (PTR_ECRAN),Y ; fictif de la ligne
H09AE    LSR              ; scroll
         STA   (PTR_ECRAN),Y
         DEY              ; passe @ l'octet pr{c{dant
         BMI   H09BD      ; ligne termin{e

         PHP              ; fait l'octet pr{c{dant
         LDA   (PTR_ECRAN),Y
         ROL
         PLP
         ROR

         JMP   H09AE      ; previous byte please!

H09BD    INC   LIGNE_ECRAN ; ligne suivante
         LDA   LIGNE_ECRAN
         CMP   #192       ; derni}re ligne?
         BCC   H099B      ; non, continue

         RTS

*-------------------------------
* Adresses des caract}res
* pour {viter les calculs
*-------------------------------


ADR_CHARSET
         DA    CARAC00,CARAC01,CARAC02,CARAC03
         DA    CARAC04,CARAC05,CARAC06,CARAC07
         DA    CARAC08,CARAC09,CARAC10,CARAC11
         DA    CARAC12,CARAC13,CARAC14,CARAC15
         DA    CARAC16,CARAC17,CARAC18,CARAC19
         DA    CARAC20,CARAC21,CARAC22,CARAC23
         DA    CARAC24,CARAC25,CARAC26,CARAC27
         DA    CARAC28,CARAC29,CARAC30,CARAC31
         DA    CARAC32,CARAC33,CARAC34,CARAC35
         DA    CARAC36,CARAC37,CARAC38,CARAC39
         DA    CARAC40,CARAC41,CARAC42,CARAC43
         DA    CARAC44,CARAC45,CARAC46,CARAC47
         DA    CARAC48,CARAC49,CARAC50,CARAC51
         DA    CARAC52,CARAC53,CARAC54,CARAC55
         DA    CARAC56,CARAC57,CARAC58

*-------------------------------
* Jeu de caract}res
*-------------------------------

* 59 caract}res @ partir de l'espace

CARAC00  HEX   0000000000000000 ; espace
CARAC01  HEX   1818181818001800 ; !
CARAC02  HEX   361B000000000000 ; "
CARAC03  HEX   000060311B0E0400 ; #
CARAC04  HEX   000F714141417F00 ; $
CARAC05  HEX   1F39797941417F00 ; %
CARAC06  HEX   0C160C6E3B336E00 ; &
CARAC07  HEX   180C000000000000 ; '
CARAC08  HEX   380C0606060C3800 ; (
CARAC09  HEX   0E18303030180E00 ; )
CARAC10  HEX   00361C3E1C360000 ; *
CARAC11  HEX   1C1C7F7F7F1C1C00 ; +
CARAC12  HEX   0000000000180C00 ; ,
CARAC13  HEX   00007F7F7F000000 ; -
CARAC14  HEX   0000000000000C00 ; .
CARAC15  HEX   2030180C06030100 ; /
CARAC16  HEX   1E30333333331E00 ; 0
CARAC17  HEX   1E18181818181800 ; 1
CARAC18  HEX   1F30301E03033E00 ; 2
CARAC19  HEX   1F30301C30301F00 ; 3
CARAC20  HEX   030303333F303000 ; 4
CARAC21  HEX   3F03031F30301F00 ; 5
CARAC22  HEX   1C06031B33331E00 ; 6
CARAC23  HEX   3F30180C0C0C0C00 ; 7
CARAC24  HEX   1E30331E33331E00 ; 8
CARAC25  HEX   3E33333630303000 ; 9
CARAC26  HEX   00000C000C000000 ; :
CARAC27  HEX   00000C00000C0600 ; ;
CARAC28  HEX   30180C060C183000 ; <
CARAC29  HEX   3F3F3F3F3F3F3F00 ; =
CARAC30  HEX   060C1830180C0600 ; >
CARAC31  HEX   3C66603018001800 ; ?
CARAC32  HEX   060C1E331B0F3E00 ; @
CARAC33  HEX   1E30333F33333300 ; A
CARAC34  HEX   1F30331B33331F00 ; B
CARAC35  HEX   3E03030303033E00 ; C
CARAC36  HEX   1F30333333331F00 , D
CARAC37  HEX   3F03031F03033F00 ; E
CARAC38  HEX   3F03031F03030300 ; F
CARAC39  HEX   3E00033B33333E00 ; G
CARAC40  HEX   3333333F33333300 ; H
CARAC41  HEX   3F0C0C0C0C0C3F00 ; I
CARAC42  HEX   3030303033331E00 ; J
CARAC43  HEX   331B0F070F1B3300 ; K
CARAC44  HEX   0303030303033F00 ; L
CARAC45  HEX   3F30333333333300 ; M
CARAC46  HEX   3333373F3B333300 ; N
CARAC47  HEX   1E30333333331E00 ; O
CARAC48  HEX   1F30331F03030300 ; P
CARAC49  HEX   1E303333333B3E00 ; Q
CARAC50  HEX   1F30331F0F1B3300 ; R
CARAC51  HEX   3E03031E30301F00 ; S
CARAC52  HEX   3F0C0C0C0C0C0C00 ; T
CARAC53  HEX   3333333333331E00 ; U
CARAC54  HEX   3333331E1E0C0C00 ; V
CARAC55  HEX   33333333333F3300 ; W
CARAC56  HEX   33331E0C1E333300 ; X
CARAC57  HEX   3333331E0C0C0C00 ; Y
CARAC58  HEX   3F30180C06033F00 ; Z

*-------------------------------
* Adresses {cran HGR
*-------------------------------

ADR_HGRL HEX   0000000000000000
         HEX   8080808080808080
         HEX   0000000000000000
         HEX   8080808080808080
         HEX   0000000000000000
         HEX   8080808080808080
         HEX   0000000000000000
         HEX   8080808080808080
         HEX   2828282828282828
         HEX   A8A8A8A8A8A8A8A8
         HEX   2828282828282828
         HEX   A8A8A8A8A8A8A8A8
         HEX   2828282828282828
         HEX   A8A8A8A8A8A8A8A8
         HEX   2828282828282828
         HEX   A8A8A8A8A8A8A8A8
         HEX   5050505050505050
         HEX   D0D0D0D0D0D0D0D0
         HEX   5050505050505050
         HEX   D0D0D0D0D0D0D0D0
         HEX   5050505050505050
         HEX   D0D0D0D0D0D0D0D0
         HEX   5050505050505050
         HEX   D0D0D0D0D0D0D0D0

ADR_HGRH HEX   2024282C3034383C
         HEX   2024282C3034383C
         HEX   2125292D3135393D
         HEX   2125292D3135393D
         HEX   22262A2E32363A3E
         HEX   22262A2E32363A3E
         HEX   23272B2F33373B3F
         HEX   23272B2F33373B3F
         HEX   2024282C3034383C
         HEX   2024282C3034383C
         HEX   2125292D3135393D
         HEX   2125292D3135393D
         HEX   22262A2E32363A3E
         HEX   22262A2E32363A3E
         HEX   23272B2F33373B3F
         HEX   23272B2F33373B3F
         HEX   2024282C3034383C
         HEX   2024282C3034383C
         HEX   2125292D3135393D
         HEX   2125292D3135393D
         HEX   22262A2E32363A3E
         HEX   22262A2E32363A3E
         HEX   23272B2F33373B3F
         HEX   23272B2F33373B3F

*-------------------------------
* Message du scroll
*-------------------------------

MSG_SCROLL ASC "HELLO, DECKARD AU CLAVIER... "
         ASC   "CA FAISAIT DEJA UN BAIL QU'ON VOULAIT "
         ASC   "FAIRE UN JEU DE ROLE GOGUENARD AU SCENARIO "
         ASC   "ORIGINAL QUI CHANGERAIT DU SEMPITERNEL "
         ASC   "ANTAGONISME ORDRE/CHAOS. ON S'Y EST "
         HEX   A2
         ASC   "SERIEUSEMENT"
         HEX   A2
         ASC   " ATTELE CET ETE AVEC ELRIK... "
         ASC   "ET VOILA LE FRUIT DE CE DELIRE..."
         ASC   "APRES DE NOMBREUSES NUITS BLANCHES "
         ASC   "PASSEES A DEBUGGER, MURYADEN EST ENFIN "
         ASC   "OPERATIONNEL. IL N'EST CERTES PAS BIEN "
         ASC   "LONG (CONNAISSANT LES PLANS, J'AI MIS "
         ASC   "ENVIRON 8H POUR LE FINIR AVEC 1 GUERRIER "
         ASC   "ORQUE SANS GROS BILL) MAIS IL EST A LA "
         ASC   "PORTEE DE TOUS.  FENDEZ-VOUS BIEN LA "
         ASC   "GUEULE... ET A BIENTOT DANS MURYADEN 2 "
         ASC   "(PREVU POUR FIN 90)..."
         DS    28," "
         HEX   FF         ; terminateur

*-------------------------------
* Animation musicale Muryaden
* et monstre
*-------------------------------

PLAY_ED
H1000    BIT   LOWSCR

         LDA   #$FD       ; not used
         STA   $DF
         LDA   #$70       ; not used
         STA   $E0

         LDA   #$D1       ; not used
         STA   $E3
         LDA   #$74       ; not used
         STA   $E4
         NOP
         NOP
         NOP

         LDA   #<DATAS_ED
         STA   PTR_MUSIC

         STA   H0364      ; not used
         LDA   #$6B       ; not used
         STA   H0365

         LDA   #>DATAS_ED
         STA   PTR_MUSIC+1

         LDA   #$01
         STA   $E5
         STA   $E6
         STA   H0361
         STA   H0362
         STA   H0363

H1035    JSR   DO_RTS     ; rts
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         NOP
         JSR   PED_01
         BCS   H1047

         JMP   H1035      ; boucle animation

H1047    LDA   MIXCLR
         JSR   DO_RTS
         LDA   $DC
         BPL   H1047

         LDA   MIXCLR
         RTS

*-------------------------------
* Player Electric Duet
*-------------------------------

PED_02   INY
         LDA   (PTR_MUSIC),Y
         STA   $E5
         INY
         LDA   (PTR_MUSIC),Y
         STA   $E6
PED_03   LDA   PTR_MUSIC
         CLC
         ADC   #$03
         STA   PTR_MUSIC
         BCC   PED_01_2

         INC   PTR_MUSIC+1
PED_01_2 CLC
         RTS

*-------------------------------

PED_01   LDY   #0
         LDA   (PTR_MUSIC),Y
         CMP   #$01
         BEQ   PED_02

         BCS   PED_04

         SEC
         RTS

PED_05   LDX   #$49
         INY
         LDA   (PTR_MUSIC),Y
         BNE   PED_06

         LDX   #$C9
PED_06   RTS

PED_04   STA   $96
         JSR   PED_05
         STX   PED_07
         STA   $E7
         LDX   $E5
PED_08   LSR
         DEX
         BNE   PED_08

         STA   PED_10+1
         JSR   PED_05
         STX   PED_09
         STA   $E8
         LDX   $E6
PED_11   LSR
         DEX
         BNE   PED_11

         STA   PED_12+1

* Animation pendant la musique

         LDY   H0363
         LDX   H0362
         LDA   H0361
         JSR   PED_14
         JSR   ANIM1
         LDA   KEY        ; touche espace

         CMP   #" "
         BEQ   H10BF      ; oui, arrete

         JMP   PED_03

H10BF    STA   $DC
         RTS


         DS    \,0
         DS    8,0

*-------------------------------

PED_14   BIT   SPKR
PED_13   CMP   #$00
         BMI   PED_16

         NOP
         BPL   PED_15

PED_16   BIT   SPKR
PED_15   STA   IN+1
         NOP
         NOP
         NOP
         DEY
         BNE   PED_10

         BEQ   PED_17

PED_10   CPY   #$06
         BEQ   PED_07
         BNE   PED_18

PED_17   LDY   $E7
PED_07   EOR   #$40
PED_18   BIT   IN+1
         BVC   PED_24
         BVS   PED_19
PED_19   BPL   PED_20
         NOP
         BMI   PED_21
PED_24   NOP
         BMI   PED_20
         NOP
         BPL   PED_21

PED_20   CMP   SPKR
PED_21   DEC   IN
         BNE   PED_22
         DEC   $96
         BNE   PED_22
         BVC   PED_23
H114A    BIT   SPKR
PED_23   STA   H0361
         STX   H0362
         STY   H0363
         RTS

PED_22   DEX
         BNE   PED_12
         BEQ   PED_26

PED_12   CPX   #$00
         BEQ   PED_09
         BNE   PED_27

PED_26   LDX   $E8
PED_09   CMP   #$80
PED_27   BVS   PED_14
         NOP
         BVC   PED_13

*-------------------------------
* NOT USED
*-------------------------------

* La routine Electric Duet a probablement
* {t{ repomp{e sur un autre jeu et le code
* n'a pas {t{ nettoy{...

         HEX   A596A695AC30C0CAD0FD38E901D0F360
         HEX   8596AD30C020D911293F18690138E901
         HEX   D0FBC696D0EC6085BA84BBA90085B9A8
         HEX   38B1B9F007C9059022AE30C0AE00E0EA
         HEX   E901D0F8C8D00BE6BAA5BAC5BBF0134C
         HEX   9C11E698AD00E0184C9C11AACAD0FD4C
         HEX   AF1160AD30C060
DO_RTS   RTS
         HEX   00C01052AE10C0C9
         HEX   92D003EAEAEAC99BD00DAD00C010FBAD
         HEX   10C0A9004C2912C9D3D022AD09114910
         HEX   8D09118D13118D3D118D4B118D70118D
         HEX   A5118D7E118DCF11A9004C2912C994D0
         HEX   0D85DC6049208D8E11A9004C811085DC
         HEX   60

         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FFDFFF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF48FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00FF
         HEX   00FF00FF00FF00A0
         HEX   A0FF00FF

*-------------------------------
* Datas musique Electric Duet
*-------------------------------

DATAS_ED HEX   092B6C09
         HEX   2B48092B40092B48
         HEX   092B6C092B480900
         HEX   4009004809006C09
         HEX   3048092B40092448
         HEX   09246C092B480930
         HEX   4009304809365009
         HEX   3636093630093636
         HEX   0936500936360900
         HEX   3009003609005009
         HEX   0036090030090036
         HEX   0900500900360930
         HEX   30092B3609244809
         HEX   243009242B092430
         HEX   0924480924300900
         HEX   2B09003009004809
         HEX   3030092B2B092430
         HEX   092456092B360930
         HEX   3009303609365009
         HEX   3636093630093636
         HEX   0936500936360900
         HEX   3009003609004809
         HEX   3030092B50092430
         HEX   092456092B480930
         HEX   60093648092B6C09
         HEX   2B48092B40092B48
         HEX   092B6C092B480900
         HEX   4009004809006C09
         HEX   3048092B40092448
         HEX   09246C092B480930
         HEX   4009304809365009
         HEX   3636093630093636
         HEX   0936500936360900
         HEX   3009003609005009
         HEX   0036090030090036
         HEX   0900500900360930
         HEX   30092B3609244809
         HEX   243009242B092430
         HEX   0924480924300900
         HEX   2B09003009004809
         HEX   3030092B2B092430
         HEX   092456092B360930
         HEX   3009303609365009
         HEX   3636093630093636
         HEX   0936500936360900
         HEX   3009003609004809
         HEX   3030092B50092430
         HEX   092456092B480930
         HEX   60093648092B6C09
         HEX   2448092440092448
         HEX   09246C0924480924
         HEX   40092448092B6C09
         HEX   2B48092440092448
         HEX   09246C092448092B
         HEX   40092B4809006C09
         HEX   2B48092440092448
         HEX   09246C092448092B
         HEX   4009244809206C09
         HEX   2448092440092448
         HEX   09246C0924480900
         HEX   40090048092B6C09
         HEX   2848092840092448
         HEX   09246C0924480924
         HEX   40092448092B6C09
         HEX   2B48092440092448
         HEX   09246C0924480900
         HEX   40090048092B6C09
         HEX   2B48092440092448
         HEX   09246C0924480924
         HEX   4009244809206C09
         HEX   2048092440092448
         HEX   09246C0924480900
         HEX   4009004809005009
         HEX   2036092430092836
         HEX   0928500928360928
         HEX   3009283609305009
         HEX   2836092830092836
         HEX   0920500920360924
         HEX   3009243609006C09
         HEX   0048090040090048
         HEX   09246C0924480924
         HEX   4009244809206C09
         HEX   2048092440092448
         HEX   09246C0924480900
         HEX   4009004809005009
         HEX   0036092830092836
         HEX   0928500928360930
         HEX   3009363609005009
         HEX   0036090030093036
         HEX   0928500928360928
         HEX   3009283609206C09
         HEX   246C09246C09246C
         HEX   09246C09246C0924
         HEX   6C09246C09206C09
         HEX   246C09246C09246C
         HEX   09246C0924360924
         HEX   3609206C09244809
         HEX   2436092448092456
         HEX   0924360924500924
         HEX   3609244809243009
         HEX   002B090030090048
         HEX   09243009242B0924
         HEX   3009206C09244809
         HEX   2436092B4809206C
         HEX   092B36092B480928
         HEX   3609285009283609
         HEX   2830092836090050
         HEX   0928360924300924
         HEX   3609246C09244809
         HEX   003609004809003C
         HEX   09003C0900400900
         HEX   5009004809303009
         HEX   302B093030093048
         HEX   09303009302B0930
         HEX   3009365009363609
         HEX   0030090036090050
         HEX   090036090030092B
         HEX   36092B4809483009
         HEX   4050094830092B56
         HEX   092B48092B600936
         HEX   48092B6C092B4809
         HEX   2B40092B48092B6C
         HEX   092B480900400900
         HEX   4809006C09304809
         HEX   2B4009244809246C
         HEX   092B480930400930
         HEX   4809365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609005009003609
         HEX   0030090036090050
         HEX   090036093030092B
         HEX   3609244809243009
         HEX   242B092430092448
         HEX   09243009002B0900
         HEX   3009004809303009
         HEX   2B2B092430092456
         HEX   092B360930300930
         HEX   3609365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609004809303009
         HEX   2B50092430092456
         HEX   092B480930600936
         HEX   48092B6C09244809
         HEX   244009244809246C
         HEX   0924480924400924
         HEX   48092B6C092B4809
         HEX   244009244809246C
         HEX   092448092B40092B
         HEX   4809006C092B4809
         HEX   244009244809246C
         HEX   092448092B400924
         HEX   4809206C09244809
         HEX   244009244809246C
         HEX   0924480900400900
         HEX   48092B6C09284809
         HEX   284009244809246C
         HEX   0924480924400924
         HEX   48092B6C092B4809
         HEX   244009244809246C
         HEX   0924480900400900
         HEX   48092B6C092B4809
         HEX   244009244809246C
         HEX   0924480924400924
         HEX   4809206C09204809
         HEX   244009244809246C
         HEX   0924480900400900
         HEX   4809005009203609
         HEX   2430092836092850
         HEX   0928360928300928
         HEX   3609305009283609
         HEX   2830092836092050
         HEX   0920360924300924
         HEX   3609006C09004809
         HEX   004009004809246C
         HEX   0924480924400924
         HEX   4809206C09204809
         HEX   244009244809246C
         HEX   0924480900400900
         HEX   4809005009003609
         HEX   2830092836092850
         HEX   0928360930300936
         HEX   3609005009003609
         HEX   0030093036092850
         HEX   0928360928300928
         HEX   3609206C09246C09
         HEX   246C09246C09246C
         HEX   09246C09246C0924
         HEX   6C09206C09246C09
         HEX   246C09246C09246C
         HEX   09246C0924360924
         HEX   3609206C09244809
         HEX   2436092448092456
         HEX   0924360924500924
         HEX   3609244809243009
         HEX   002B090030090048
         HEX   09243009242B0924
         HEX   3009206C09244809
         HEX   2436092B4809206C
         HEX   092B36092B480928
         HEX   3609285009283609
         HEX   2830092836090050
         HEX   0928360924300924
         HEX   3609246C09244809
         HEX   003609004809003C
         HEX   09003C0900400900
         HEX   5009004809303009
         HEX   302B093030093048
         HEX   09303009302B0930
         HEX   3009365009363609
         HEX   0030090036090050
         HEX   090036090030092B
         HEX   36092B4809483009
         HEX   4050094830092B56
         HEX   092B48092B600936
         HEX   48092B6C092B4809
         HEX   2B40092B48092B6C
         HEX   092B480900400900
         HEX   4809006C09304809
         HEX   2B4009244809246C
         HEX   092B480930400930
         HEX   4809365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609005009003609
         HEX   0030090036090050
         HEX   090036093030092B
         HEX   3609244809243009
         HEX   242B092430092448
         HEX   09243009002B0900
         HEX   3009004809303009
         HEX   2B2B092430092456
         HEX   092B360930300930
         HEX   3609365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609004809303009
         HEX   2B50092430092456
         HEX   092B480930600936
         HEX   48092B6C092B4809
         HEX   2B40092B48092B6C
         HEX   092B480900400900
         HEX   4809006C09304809
         HEX   2B4009244809246C
         HEX   092B480930400930
         HEX   4809365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609005009003609
         HEX   0030090036090050
         HEX   090036093030092B
         HEX   3609244809243009
         HEX   242B092430092448
         HEX   09243009002B0900
         HEX   3009004809303009
         HEX   2B2B092430092456
         HEX   093036092B30092B
         HEX   3609365009363609
         HEX   3630093636093650
         HEX   0936360900300900
         HEX   3609004809303009
         HEX   2B50092430092456
         HEX   092B480930600936
         HEX   480000FF00

         DS    \,0

         SAV   B0800.1BFF
